From: Teodor Zlatanov Date: Mon, 25 Apr 2011 04:32:07 +0000 (+0000) Subject: gnus-registry.el (gnus-registry-ignore-group-p): Don't call `gnus-parameter-registry... X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~4045 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=9ce27ff472cdfefe62a91f124d287f135d178294;p=emacs.git gnus-registry.el (gnus-registry-ignore-group-p): Don't call `gnus-parameter-registry-ignore' if the *Group* buffer doesn't exist. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 20eff7a5ee0..fceca22f1f4 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2011-04-25 Teodor Zlatanov + + * gnus-registry.el (gnus-registry-ignore-group-p): Don't call + `gnus-parameter-registry-ignore' if the *Group* buffer doesn't exist. + 2011-04-23 Glenn Morris * gnus-sum.el (gnus-extra-headers): Bump :version. diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el index 3597cbc1584..e6c96ab2b19 100644 --- a/lisp/gnus/gnus-registry.el +++ b/lisp/gnus/gnus-registry.el @@ -678,6 +678,7 @@ Consults `gnus-registry-ignored-groups' and ;; `gnus-registry-ignored-groups' is a list of lists ;; (it can be a list of regexes) (and (listp (nth 0 gnus-registry-ignored-groups)) + (get-buffer "*Group*") ; in automatic tests this is false (gnus-parameter-registry-ignore group)) (gnus-grep-in-list group